home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / batsound.zip / BOMB.PAS < prev    next >
Pascal/Delphi Source File  |  1993-03-23  |  306b  |  27 lines
  1. program bomb;
  2.  
  3. uses crt;
  4.  
  5. var
  6. varies : integer;
  7.  
  8. begin
  9. varies := 23000;
  10. while varies > 100 do
  11. begin
  12. sound(varies);
  13. delay(1);
  14. varies := varies - 1;
  15. end;
  16. nosound;
  17. delay(100);
  18. sound(35);
  19. delay(1000);
  20. sound(30);
  21. delay(1000);
  22. sound(25);
  23. delay(700);
  24. sound(20);
  25. delay(1700);
  26. nosound
  27. end.